From 0bf0c097bd2d63421fa65deaab18845e0a088372 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 Jun 1993 20:58:28 +0000 Subject: [PATCH] (mark-even-if-inactive): New variable. (mark): Test it. --- lisp/simple.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index c4d065a1647..b4eda5b4d9b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1230,6 +1230,13 @@ START and END specify the portion of the current buffer to be copied." (save-excursion (insert-buffer-substring oldbuf start end))))) +(defvar mark-even-if-inactive nil + "*Non-nil means you can use the mark even when inactive. +This option makes a difference in Transient Mark mode. +When the option is non-nil, deactivation of the mark +turns off region highlighting, but commands that use the mark +behave as if the mark were still active.") + (defun mark (&optional force) "Return this buffer's mark value as integer; error if mark inactive. If optional argument FORCE is non-nil, access the mark value @@ -1238,7 +1245,7 @@ if there is no mark at all. If you are using this in an editing command, you are most likely making a mistake; see the documentation of `set-mark'." - (if (or force mark-active) + (if (or force mark-active mark-even-if-inactive) (marker-position (mark-marker)) (error "The mark is not currently active"))) -- 2.30.2